home *** CD-ROM | disk | FTP | other *** search
/ Just Call Me Internet / Just Call Me Internet.iso / com / computer / casio_st / prog_fx / oisac2 / l_5920.txt < prev    next >
Text File  |  1994-03-01  |  1KB  |  28 lines
  1. 5 GOTO10010
  2. 10 DATAHCOOH,HCOO‰ + Hš,10,20,1.77Ž10‰”,a,
  3. 20 DATACH’COOH,CH’COO‰ + Hš,10,30,1.75Ž10‰•,a,
  4. 30 DATACïH“COOH,CïH“COO‰ + Hš,20,40,6.31Ž10‰•,a,2
  5. 40 DATAHÆCO’,Hš + HCO’‰,30,50,4.45Ž10‰—,a,
  6. 50 DATACïH“OH,CïH“O‰ + Hš,40,60,1.00Ž10‰Çø,a,2
  7. 60 DATANH’ + HÆO,NH+ OH‰,50,70,1.78Ž10‰•,b,1
  8. 70 DATAC“H“N + HÆO,C“H“NHš + OH‰,60,80,1.5Ž10‰™,b,
  9. 80 DATACïH“NHÆ + HÆO,CïH“NH’š + OH‰,70,80,3.8Ž10‰Çø,b,2
  10. 10010 MODE8:DIM:x=10:y=80:r=x
  11. 10020 DEFCHR$(252)="2E2A3A0000"
  12. 10030 DEFCHR$(253)="2A2A3E0000"
  13. 10035 DEFCHR$(254)="3A2A2E0000"
  14. 10040 DIM:ERASEa$:DIMa$(2):RESTORE10080
  15. 10050 FORi=1 TO2:READa$(i):NEXT
  16. 10080 DATA38083E0000,3E2A2E0000
  17. 10110 RESTORE(r)
  18. 10120 READm$,n$,b,c,d$,e$,d:CLS
  19. 10125 IFd THENDEFCHR$(255)=a$(d)
  20. 10130 l$="["+MID$(STR$(r/10),2)+"]"
  21. 10140 CLS:PRINTm$;"  ";n$;TAB(0);"K";e$;" = ";d$;" [mol/l]";TAB(28);l$;
  22. 10150 z=ASC(INPUT$(1,@))
  23. 10170 IFz=29ANDr<>x THENr=x:GOTO10110
  24. 10180 IFz=28ANDr<>y THENr=y:GOTO10110
  25. 10190 IFz=30ANDr<>b THENr=b:GOTO10110
  26. 10200 IF(z=31 ORz=13) ANDr<>c THENr=c:GOTO10110
  27. 10280 GOTO10150
  28.